home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / WegDa.cpp < prev    next >
C/C++ Source or Header  |  1999-01-04  |  1KB  |  58 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "WegDa.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const int Farbe = 16777215;
  10. bool Modus1, Modus2;
  11. TForm1 *Form1;
  12.  
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15.     : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21.   Modus2 = !Modus2;
  22.   Color = random (Farbe);
  23.   if (Modus2)
  24.   {
  25.     Button2->Show();
  26.     Button1->Caption = "Hide";
  27.   }
  28.   else
  29.   {
  30.     Button2->Hide();
  31.     Button1->Caption = "Show";
  32.   }
  33. }
  34. //---------------------------------------------------------------------------
  35. void __fastcall TForm1::Button2Click(TObject *Sender)
  36. {
  37.   Modus1 = !Modus1;
  38.   Color = random (Farbe);
  39.   if (Modus1)
  40.   {
  41.     Button1->Show();
  42.     Button2->Caption = "Hide";
  43.   }
  44.   else
  45.   {
  46.     Button1->Hide();
  47.     Button2->Caption = "Show";
  48.   }
  49. }
  50. //---------------------------------------------------------------------------
  51. void __fastcall TForm1::FormCreate(TObject *Sender)
  52. {
  53.   randomize ();
  54.   Color = random (Farbe);
  55.   Modus1 = true;
  56.   Modus2 = false;
  57. }
  58. //---------------------------------------------------------------------------